home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed39.d64 / game 5 practice (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  130 lines
  1. 50 POKE53280,0:POKE53281,0:POKE53272,23:Y=0:W=0:C=0:M=0:N=0
  2. 100 PRINT"[147][155]            [215][200][195][160][197]NTERPRISES            ":GOSUB290:GOSUB240
  3. 105 PRINT"[159]                                        [146]";
  4. 110 PRINT"                                        [146]";
  5. 115 PRINT"      [199][201][204][204][201][193][206]'[211] [197][206][199][204][201][211][200] [197][216][197][210][195][201][211][197][211]       [146]";
  6. 120 PRINT"[159]                                        [146]";:GOSUB290:GOSUB240
  7. 125 PRINT"             *   [199][193][205][197] 5   *             [146]";
  8. 130 PRINT"[159]                                        [146]";:GOSUB290:GOSUB240
  9. 135 PRINT"                [208][210][193][195][212][201][195][197]                [146]";
  10. 140 PRINT"[159]                                        [146]";
  11. 145 PRINT"                                        [146]"
  12. 150 GOSUB 291:GOSUB460
  13. 160 PRINT"[147][153]  [201] WILL SHOW YOU A WORD WITH
  14. 162 [153]"  FOUR LETTERS MISSING.
  15. 164 PRINT"  [217]OUR TASK IS TO DECIDE IF THE
  16. 166 [153]"  MISSING LETTERS ARE ANCEPRINT OR ENCEPRINT        AND TYPE IN THE WORD.
  17. 168 PRINT"  [201]F, AFTER YOUR SECOND ATTEMPT, YOU
  18. 170 [153]"  HAVE FAILED TO TYPE THE CORRECTLY
  19. 172 PRINT"  SPELLED WORD, IT WILL BE DISPLAYED."
  20. 174 PRINT"  [217]OU SHOULD STOP TO RECORD THAT WORD
  21. 176 [153]"  FOR FURTHER STUDY.
  22. 190 GOSUB291:GOSUB460
  23. 195 PRINT"[147][158] [193]ND AWAY WE GO.............."
  24. 197 GOSUB291:GOSUB200:GOSUB290:PRINT"[147]":GOSUB290:GOTO500
  25. 200 REM <YES> SOUND
  26. 202 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  27. 204 POKE54296,15:POKE54277,42:POKE54278,250
  28. 206 POKE54276,23:POKE54273,23:POKE54272,191
  29. 208 FORTM=1TO150:NEXT:POKE54276,32:FORTM=1TO250:NEXT
  30. 210 POKE54296,0:RETURN
  31. 220 REM <NO> SOUND
  32. 222 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  33. 224 POKE54296,15:POKE54277,18:POKE54278,242
  34. 226 POKE54276,33:POKE54273,4:POKE54272,48
  35. 228 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
  36. 230 POKE54296,0:RETURN
  37. 240 REM <BLIP> SOUND
  38. 242 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  39. 244 POKE54296,6:POKE54277,42:POKE54278,250
  40. 246 POKE54276,23:POKE54273,23:POKE54272,191
  41. 248 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
  42. 250 POKE54296,0:RETURN
  43. 260 REM <DING> SOUND
  44. 262 SS=54272:POKE54296,15:POKESS,50:POKESS+1,35:POKESS+2,0:POKESS+3,8:POKESS+5,0
  45. 264 POKESS+6,10*16+9:POKESS+4,14:POKESS+4,65:FORQQ=1TO20:POKESS+4,64:RETURN
  46. 270 REM <VERY WRONG> SOUND
  47. 272 SS=54272:POKE54296,15:POKESS,32:POKESS+1,3:POKESS+2,128:POKESS+3,13
  48. 274 POKESS+5,4*16+0:POKESS+6,10*16+8
  49. 276 POKESS+24,15:POKESS+4,65:FORQQ=1TO500:NEXT:POKESS+4,64:RETURN
  50. 290 FORTM=1TO600:NEXT:RETURN
  51. 291 FORTM=1TO1000:NEXT:RETURN
  52. 292 FORTM=1TO2000:NEXT:RETURN
  53. 293 FORTM=1TO3000:NEXT:RETURN
  54. 294 FORTM=1TO4000:NEXT:RETURN
  55. 300 PRINT"[147]":GOSUB290:PRINT"[155] [199]AME 5 - [208]RACTICE              [201]TEM"Y
  56. 305 RETURN
  57. 399 :
  58. 400 POKE53280,13:GOSUB290
  59. 402 PRINT"[153]                [195][207][210][210][197][195][212]!                [146]":GOSUB200:GOSUB292
  60. 404 PRINT"[145][145]                                        "
  61. 410 POKE53280,0:RETURN
  62. 420 POKE53280,2:GOSUB220:GOSUB291
  63. 422 PRINT"[150]                 [206][207]!                    [146]":GOSUB291
  64. 424 PRINT"[145][145]             [212]RY AGAIN.                 [145][145]":GOSUB291
  65. 426 PRINT"                                        [145][145]"
  66. 428 PRINT"[145][145][145]                              [145][145]":RETURN
  67. 430 POKE53280,2:GOSUB270:GOSUB291
  68. 432 PRINT"[150]                 [206][207]!                    [146]":GOSUB291
  69. 434 PRINT"[145][145]                                        [145][145]":RETURN
  70. 440 GOSUB270:GOSUB291:POKE53280,13
  71. 445 PRINT"> [153]"D$
  72. 450 GOSUB200:GOSUB294:GOSUB460:POKE53280,0:RETURN
  73. 460 GOSUB291:GOSUB260
  74. 462 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210] TO CONTINUE       [146]"
  75. 464 GETR$:IFR$<>CHR$(32)THEN464
  76. 466 PRINT"[145][145]                                        ":RETURN
  77. 500 FORG=1TO20:FORI=1TO2:Y=Y+1:P=0
  78. 505 GOSUB300:POKE53280,0
  79. 510 READA$,B$
  80. 515 PRINT"[153][212]HE MISSING LETTERS ARE EITHER ANCE[153]     OR ENCE[153].
  81. 517 [153]"(null)YPE THE CORRECTLY SPELLED WORD.
  82. 520 PRINT"  ";A$
  83. 525 GOSUB260:PRINT"[158]":INPUTZ$
  84. 530 IFZ$=B$THENGOSUB400:GOTO590
  85. 535 IFP=1 THENGOSUB430:GOTO545
  86. 540 P=P+1:K=K+1:GOSUB420:GOTO525
  87. 545 PRINT"[159][145][212]HE CORRECT WORD IS "B$:GOSUB200:GOSUB291:W=W+1:GOSUB292
  88. 550 PRINT"[158][208]LEASE RECORD THIS WORD >> "B$:PRINT""
  89. 555 GOSUB260:GOSUB293:GOSUB460
  90. 590 NEXTG
  91. 600 PRINT"[147]       [199][193][205][197] 5 [208][210][193][195][212][201][195][197]    [211][195][207][210][197][160][194][207][193][210][196]   [146]"
  92. 605 M=K-W:D=M+W:C=20-D
  93. 610 PRINT"[153]    [195]ORRECT THE FIRST TIME ...... "C:GOSUB260:GOSUB291
  94. 615 PRINT"[159]    [195]ORRECT ON SECOND ATTEMPT ... "M:GOSUB240:GOSUB291
  95. 620 PRINT"[150]    [205]ISSED COMPLEETELY .......... "W:GOSUB270:GOSUB291
  96. 630 IFC<20THENGOSUB292:GOTO660
  97. 635 PRINT"            [197][216][195][197][204][204][197][206][212]  [215][207][210][203]!            [146]":GOSUB293
  98. 660 GOSUB460
  99. 670 PRINT"[158][147]  [217]OU HAVE A CHOICE:                    ":GOSUB292
  100. 672 PRINT"  [208]RESS  [208] [146] TO PLAY [199]AME 5 [208]RACTICE   [158]              AGAIN.
  101. 674 [153]"  (null)RESS  (null) WAIT TO RETURN TO DISK MENU,
  102. 676 GETR$:IFR$<>"P"ANDR$<>"[208]"ANDR$<>"M"ANDR$<>"[205]"THEN676
  103. 678 IFR$="P"THEN RESTORE:GOTO50
  104. 680 IFR$="[208]"THEN RESTORE:GOTO50
  105. 682 PRINT"[147] [210]ETURNING TO THE DISK MENU
  106. 684 [147]"MENU",8
  107. 686 [138]
  108. 688 [128]
  109. 1000 [131] "ADOLESC----","ADOLESCENCE"
  110. 1010 [131] "EFFERVESC----","EFFERVESCENCE"
  111. 1020 [131] "TOLER----","TOLERANCE"
  112. 1030 [131] "ARROG----","ARROGANCE"
  113. 1040 [131] "NEGLIG----","NEGLIGENCE"
  114. 1050 [131] "SUBSIST----","SUBSISTENCE"
  115. 1060 [131] "RECURR----","RECURRENCE"
  116. 1070 [131] "EXIST----","EXISTENCE"
  117. 1080 [131] "APPLI----","APPLIANCE"
  118. 1090 [131] "VARI----","VARIANCE"
  119. 1100 [131] "EMERG----","EMERGENCE"
  120. 1110 [131] "AFFLU----","AFFLUENCE"
  121. 1120 [131] "EXTRAVAG----","EXTRAVAGANCE"
  122. 1130 [131] "COUNTEN----","COUNTENANCE"
  123. 1140 [131] "ABHOR----","ABHORENCE"
  124. 1150 [131] "TEMPER----","TEMPERANCE"
  125. 1160 [131] "DETER----","DETERENCE"
  126. 1170 [131] "INNOC----","INNOCENCE"
  127. 1180 [131] "HINDR----","HINDRANCE"
  128. 1190 [131] "OBEDI----","OBEDIENCE"
  129. 2000 [143] WHC 92 09 07
  130.